PL/SQL Course 


بمو الل الرحمن الرحيء 
( وما أسالكم عليه من اجر إن اجري إلا علي لله ) 


اسال لله العلي العظيم أن يوفقتي ويوفقكم الي ماقي القير لي ولكم وأرجومن كل هن قرأ الكتاب ان لا 
يبل عطي بالدعاء لي ولوالدي وان يعقر لي تن اي حطا موجود قي الكتاب , 


عندما يبدع القلم وينطق اللسان بقول الحق وتتحرك 
اليدان لعمل اجمل ما يتم عمله لينتفع به كل من في العالم 
العربي اجمع فنجد الاستاذ والتلميذ معا يبدعان كي 


lull 
CISCO 


Microsoft’ 
ORACLE 


Autodesk 


@ ICDL Advanced 


| ORACLE FINANCIAL. gy 
بمو الل الرحمن الرحيه‎ 


( وما اسالكم عطيه من اجر إن اجري إلا علي له ) 


اسال لله العلي العظيم أن يونقني ويوفقكم الي ماقي القير لي ولكم وأرجومن كل هن قرأ الكتاب ان لا 
يبقل علي بالدتساء لي ولوالدي وان يغفر لي تن اي حطسأ موجود قي الكتاب , 


Mo7amed Reda Abd ElI]-Rahman 
ORACLE FINANCIAL CONSULTANT 
ACCOUNTANT UNDER ORACLE APPLICATIONS ENVIRONMENT 
INSTRUCTOR ORACLE FINANCIAL R12 
INSTRUCTOR ORACLE DEVELOPER 


Scientific Computing Center —- Mansoura University 
Mobile : 01066734341 


Eng. Mo7amed Reda E-mail:Dev-reda @ hotmail.com Mobil: (1066734381 


PL/SQL Course 


Introduction To PL/SQL 


Index 


Chapterl: Creating Stored Procedure s 
Chapter2: Creating Stored Functions 
Chapter3: Creating Package 


Eng. Mo7amed Reda E-mail:Dev-reda @ hotmail.com Mobil: (1066734381 4 


PL/SQL 
Fundamental 


PL/SQL Course 


CHAPTER 1 
Introduction to PL/SQL 


PL/SQL 
Procedural Language / Structure Query Language 


so 


انا 


. بإضافة مميزات لغة البرمجة الأجرائية‎ Q1 هى إمتداد للغة ال‎ P1 | 3Q 

جمل التعامل والأستعلام الخاصة بال 5Q1‏ يتم إدراجها داخل الكود الخاص بلغة ال اSQ‏ / ا . 

سوف نقوم فی ال ۲1 بعمل كود وتخزينة فی ال ABA S۴‏ ونقوم بالنداء عليه فقط وإستدعائة. 

سوف نقوم بأستخدام مايسمى بالمتغيرات (ءعاطهنعه۷) وايضا الثوابت (مه)وصه)) وانواع اخرى كثيرة . 
سوف نستخدم الجمل الشرطية (٤٣عدم‏ مه5 1۴) وجمل التكرار (0م1) وهى تستخدم لتكرار جمله معينه عدد مرات معينه . 


Modular *‏ تطویر البرنامج : 
حيث نستطيع وضع اكثر من بلوك داخJ‏ ڊحضln (Nested Blocks)‏ 


هه الأستفادة من الخبرات والأكواد السابقة وذلك بجمعها فى شكل مكتبات (sعزهإط)‏ يمكن الأستفادة منها من بين ادوات 
اوراكل المختلفة . 


: التكامل‎ [ntegration *%* 

يتكامل مع منتجات اوراكل مثل ال إعمoاع [ev‏ . 
Portability‏ المرونة : 

. (Platform) sl (Operating System) J| Je حيث نستطيع كتابة الكود‎ 
: معالجة الأخطاء‎ Exception * 


حيث نستطيع معالجة الأخطاء وإظهارها بالشکل الذى نريده . 
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يتكون كود ال ]۲ من عدة Blocks)‏ وکل (ءه81) یتکون من : 


PL/SQL Block Structure 


FR nal 
a: cursors, user-defined exceptions 
— Mandatory 
SAL statements 
SQL statements 


ons to perform when errors OCCUf 
- Mandatory 


هى منطقة التعريف والأعلان وتحتوى على مايلى : 
Variables — Cursors — Constants — And Other Types‏ 


Mandatory SQLS tatement — Pl] / SQL Statement —Î المنطقة التنفيذية‎ 


ا 


يتكون ال )م8 على الأقل من Begin‏ و End‏ . 
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# تنفيذ جمل وعبارات ال 1 /S@‏ ا۲ : 
يتم وضع علامة (;) فاصلة منقوطة فى نهاية كل جمله او عبارة من جمل ال اSQ/ ٥.‏ . 

۶ عند تنفيذ البلوك بدون أخطاء تظهر الجملة التالية لتو ضيح تمام وصحة التنفيذ 

PL / SQL procedure successfully completed . 

4 لاحظ عدم وجود علامة الفاصلة المنقوطة بعد نهاية كلمة Exception yl Begin yl Declare‏ 
لاحظ وجود علامة الفاصلة المنقوطة () فى نهاية کلمة لم۳ . 
يمكن كتابة أكثر من جملة او عبارة على نفس السطر والفصل بينهم بعلامة الفاصلة المنقوطة (:) ولكن لايحبذ ذلك لجعل قراءة 
البرنامج اسهل وكذلك التعديل فيه : 


ه٠‏ لاحظ ان انواع ال يءعم[8 فى لغة ال SQ‏ / ]۲ يمكن ان تكون منفصلة كلياً او متداخله مع بعضها البعض 
Nested Blocks(‏ وتنقسم هذه الکتل الى قسمين : 


Anonymous block Subprograms 


) "ockاb Anonymous‏ " الكتلة المجهولة : 

ليس له اسم ويتم تعريفه عند نقطة التطبيق وينفذ ساعتها ويتم ارساله الى معالج اوراكل لترجمتها وتنفيذها . 
"Subprogram" )‏ وحدات برمجية : 

4 هى وحدات او ء)عم[8 تقبل معاملات (؟إعاعصهه۴) يمكن ان تستند عليها فى تنفيذ البرنامج وتنقسم هذه الوحدات 
اdأ)Procedure)‏ و )Function(‏ وهذه الوحدات يتم حفظها داخل ال مههه ويتم استدعائها عند الحاجة اليها . 
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Blocks Types 


Anonymous Procedure Function 


[DECLARE ] PROCEDURE name FUNCTION name 
IS RETURN datatype 


IS 


BEGIN BEGIN BEGIN 
--statement s --statement s --statements 
RETURN value; 


[EXCEPTION] [EXCEPTION] [EXCEPTION] 


END; END; END; 


% Differences between Anonymous Blocks and Subprograms 


Anonymous Block Subprogram 
E 


نستطیع تنفیذه من مم۸ آخری لانستطیع تنفیذه من مم۸ اخری 
ممکن ان یأخذ ٥٥)٥۶‏ 4اa٥۲‏ لایمکن ان یأخذ Para 0e)‏ 


ما هو الفرق بين |— Function ily Procedure‏ ؟ 
+ ال Procedure‏ ممكن تعود بقيمة او اكثر او لا تعود بقيمة . 


ال صمناعمس۴ لابد وأن تعود بقيمة . 
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: مثال‎ 
٠٠٠١ استخرج اسم الموظف رقم‎ 
Declare 
V_fname varchar2 (20); 
Begin 
Select First_name into V_fname 
From employees 
Where employee_id = 100 ; 
End ; 


PL/SQL procedure successfully completed. 


لابد من تهيئة البرنامج لأستخراج جمل الطباعه عن طريق كتابة الأمر التالى Set Serveroutput On‏ وهذه الجملة تكتب مرة 
واحدة فى ال «هذءءم؟ وتظل محفوظة حتى نقوم بإغلاق البرنامج . 

Procedure yê PUI_LINE ls DBMS _OUIPUT.PUT_LINE Jأھو بعد تهيئة البرنامج نقوم بكتابة جملة الطباع4‎ 
. DBMS_OUIP UT Jمmت‎ Package Jخد محفوظة‎ 

توضع جملة الطباعه داخل مزع8 وتأخذ إمامس ووم واحد لذلك لانستطيع استخدام ال (ي بداخلها بل نستخدم (||) فى حالة 
لو اردنا طباعة اكثر من متغير . 

فى حالة كتابة الكود بشكل سليم وبدون أخطاء تظهر الجملة llتllية‏ : PL/SQL procedure successfully completed.‏ 


Declare 
V_fname varchar2 (20); 
Begin 
Select First_name into V_fname 
From employees 
Where employee_id = 100 ; 


DBMS_OUTPUT.PUT_LINE((‘the first name ofthe employee is : ° || V_fname ) ; 
End ; 


the first name of the employee is : Steven 


PL/SQL procedure successfully completed. 
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CHAPTER 2 
Declaring PL/SQL Variables 


ائnتغيڍرlت Variables‏ 
- ال ماطiaاد۷‏ : هو مكان فى الميمورى نقوم فيه بتخزين بيان معين او قيمه معينه تخزين مؤقت ونستطيع إستخدام ال 
ك للتعديل والأضافة على القيم الموجودة فى ال مءدطه)ه( وايضاً نستطيع إستخدامه اكثر من مرة . 
القواعد العامه لتسمية ال sءعإطهVari‏ : 
# لابد وأن يبدأ بحرف 
# من الممكن ان يحتوع على حروف وأرقام وعلامات 
٭ يجب الایزيد عن ٠١۰‏ حرف 
# الايكون كلمة من كلمات اوراكل المحجوزة مثّل (٤ءءم1‏ , ٤»٥1م5)‏ او غيرهما 
# ملحوظة : 
نقوم بتعريف ال arabes‏ فآٴ Declarative Section‏ اى الجزء الخاص ب (عھا0ec)‏ . 
من الممكن إعطاء ال وعاطهاإجه۷ قيم إفتراضية فى ال مهام( ونستطیع تبدیلها فی 
آ Executable Section‏ الجزء الخاص ب «ذع‌8 . 


Example 


DECLARE 

Variable Name Datatype ; 

V_hire Date; 

V_deptno Number Not Null := 10; Null] یجب ان لا یحتوی علٰی‎ 
V_location Varchar2(13) := 'Mansoura' ; 


هذه القيمة ثابتة لاتتغير ;1400 =: V_comm Constant Number‏ 


Example (I 


DECLARE 
V_Name Varchar2(20) ; 


BEGIN DBMS_OUTPUT.PUT_LINE ('My name is: '|| V_Name ); 


فى هذه الحاله لن يطبع شىء سوى كلمة : ء1[ My Na‏ فقط 
V_Name := 'Mo7amed Reda';‏ 


DBMS_OUTPUT.PUT_LINE('My name is: '||V_Name); 


My Name Is: Mo7amed Reda فی هذه الحاله سیطبع کأمة‎ 
END; 


Eng. Mo7amed Reda 


E-mail:Dev-reda @ hotmail.com Mobil: (1066734381 


PL/SQL Course 


Example ( II 


DECLARE 
V_Name Varchar2(20) := 'Mo7amed'; 
BEGIN 
V_Name := ' reda '; 
DBMS_OUTPUT.PUT_LINE('My name is: '|[V_Name); 


END ; 


فى هذه الحالة ال عاطونج۷ بها قيمه فى ال Declarative Se cto”‏ وبھا قيمة أیضاً فی ال Executable Section‏ ولکن 
عندما نقوم بطباعة القيمه الموجودة بالمتغير ستطبع القيمة الموجودة — Executable Section‏ 
لأنها الأحق فى التنفيذ لذلك سيكون ناتج الطباعه My name is : reda‏ 


Types of Variables ٽlرڍغتnئl أنواع‎ 


PL/SOL variables: 
Scalar المفردة‎ 
Composite ةşSرnll‎ . (CH6) 
Reference lqبرlشمll‎ . 
Large object (LOB) ةريبكأl ذات الأحجام‎ . 
Non-PL/SOL variables: 
e Host 
e Bind 
: ۲_/ SQ اولاً المتغيرات الخاصة بال‎ # 
: ملحوظة‎ 


# من الأفضل تسمية ال مإاطوزاه بإسم يدل على البيان الذى يحملة . 


2 


من الأفضل عدم تسمية ال Varia‏ على إسم Column‏ . 


۰ 


ال ماVariab‏ الذى یکون Cons tan)‏ او اNul N0‏ لابد من إعطائة قيم إفتراضية فآ أ Declarative Section‏ . 


4 نستطيع إعطاء ال ماطوااج۷ قيمة إفتراضية عن طريق عمل (=:) 0۲ مم0 ٤nمصمءiءءA‏ او كتابة كلمة 
Default‏ كما يلى : 
V_Name Varchar2(20) := 'Mo7amed Reda' ;‏ % 


% V_Name Varchar2(20) Default 'Mo7amed Reda' ; 
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من الأفضل تعريف كل مااوااه۷ على سطر حتى يسهل علينا عملية القراءة وأيضاً معالجة الأخطاء وسهولة الوصول 
اليها. 
سوف نتناول فى هذا الإعام وط النوع الأول وهو ال واهءS؟‏ ال sعاطriaو۷‏ ا۲1/50 وسوف نتناول النوع 
الأخير الخاص بف Non PlI/sql Varciables‏ . 


Declaring Scalar Variables 


المتغيرات المفردة (Scalar Variables)‏ : 
)١‏ هی متغيرات تحتوى على قيم مفردة ولايمكن تجزء الى قيم مفردة أصغر منها فهى انواع لايمكن ان يحتوى 
المتغير فيها سوى على قيمة واحد فقط rعمNumb‏ او Varchar2‏ او Date‏ او Boolean‏ و غيرهم . 
DECLARE‏ 
V_Job Varchar2 (9) ;‏ 
V_Count Binary_Integer := 0;‏ 
V_Dept Number (9, 2) := 0;‏ 
V_Orderdate Date := Sysdate+ 7;‏ 
V_Tax_Rate Constant Number := 8.25;‏ 
V_Valid Boolean Not Null := TRUE;‏ 
الأنواع المختلفة لل مم1 ۾)04 : 
(طtعnعا) Char‏ : متغير حرفى ثابت السعة سواء تم ملأها بالبيانات او تركت فارغة وهذا النوع مضر فى 
المساحة لكنه اسرع فى التعامل . 
()عenا) Varcha12‏ : متغير حرفى ذات سعه معينة لكن هذه السعة متغيرة ويتم ملا المتغير بسعة النص فقط بحد 
اقصى سعة هذا المتغير فمذلاً متغير حرفى ذات سعة ٠١‏ حرف ولم يوضع فيه سوى ٠‏ حروف يملاء بالحروف ال ٦‏ 
ويتم توفير الباقى وهذا النوع مفيد فى المساحة لكنه ابطىء من النوع السابق (إوطء) . 
۽1 : هو النوع الأساسى للبيانات النصية ذات سعه بحد اقصی ۳۲۷٠۰‏ بايت . 
[0n Raw‏ : هو مثل ال چرم[ لکنه لایتم التعامل به ولا یفهمه ا@S؟/۲1.‏ 
(؛ ,م) اءمط««سد : هو متغير رقمى يأخذ نطاق من خانه واحدة الى ۳۸ خانة وكذلك کسر عشرى من ۲۸ الى ٠١١۷‏ 
د مر : عدد خانات الأرقام الصحيحة . 
د $ : عدد خانات الأرقام العشرية . 
Binary _ integer‏ : هو النوع الرقمى الصحيح ليأخذ كسور عشرية خلال + ۲٠٤١۷٤۸۴۳‏ 
inte‏ _ ءا : هو مثل النوع السابق لكنه اسرع ويأخذ مساحة اقل . 
Boolean‏ : هو نوع یأخذ ثلاث قیم فقط (االسم م ءاه , عuإ))‏ ويستخدم فى حالات الشروط والمقارنات المنطقية 
‰6 : نوع المتغيرات التاريخية ويحتوى على بيانات تاريخ او وقت او زمن وهو يبدأ من ٠٤١١١‏ قبل الميلاد الى 
۹۹ بعد الميلاد . 
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Declare 
v_job varchar2 (15); حرف‎ ٠١ متغير حرفى ذات سعة‎ 
v_count binary-integer := 0; متغير رقمى صحيح يأخذ قيمة إبتدائية صفر‎ 
v_total_sal number (7.2) := 3.17; متغیر رقمی من سبع خانات منهم اثنان كسر عشرى‎ 
v_order_date date:= sysdate +7 ; متغير زمنى يبدأ فى الأسبوع القادم‎ 
C-TAX-RATIO CONSTANT NUMBER (4.2) :=17.25; 
٠۷.٠١٠ م متغير ثابت رقمى مكون من اربع خانات منهم خاناتان كسر عشرى ويأخذ قيمة افتراضية‎ 
V_Flag Boolean Not Null :=True ; 
. ٠٠ع م متغير منطقى ”مءا مم8“ لايأخذ قيمة فارغة اله ويأخذ قيمة إفتراضية‎ 


TYPE Attribute 


#* هى ممر) (4a‏ ولكن الميزة بها انها تأخذ نفس ال عممر واد( وال طtور‏ م الخاص باذ مصuامC٣‏ . 


DECLARE 

Variable Name Table Name . Column Name %Type ; 

V_Name Employees.Last_Name % Type ; 

V_Balance Number(7,2) ; 

V_Min_Bal V_Balance % TYPE := 1000; 

ملحوظة : 
+ هذا النوع افضل من ال rھاھء؟‏ ءزیه8 حیث انه عند عمل ای تغيير او تعدیل فى الجدول فی ال ط)عٍہم] مثلاً فان 
ال مااوiاه۷‏ يتغير تلقائياً بتغيير الجدول . 


٭ القیم التی تعرود بھا رھ ء8001 هى ) (true , false , null‏ . 


إستخراج إسم ومرتب الموظف الذى يحمل رقم ٠٠١‏ ؟ 

DECLARE 

V_Name Employees.Last_Name % Type ; 

V_Sal Number ; 

V_ld Employees.Employee_id% Type := 100 ; 

BEGIN 

Select Last_Name , Salary into V_Name , V_Sal 

From Employees 

Where Employee_lId = V_Id ; 

DBMS_OUTPUT.PUT_LINE( V_Name || ' and His Salary is : ' |[V_SaD; 
END ; 
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Bind Variables 


ملحوظة : 
هذا النوع من المتغيرات يتم إنشاؤة داخل ال رمذووم؟ ولیس داخل |آ— Host Variable Jآaıتو B1‌ock‏ . 
يوضع قبلھا کلمة ماطھزه۷ وتستخدم أيضاً فى ال اې؟ واد !۲1/1 . 
عند كتابة eااھ1i‏ ج۷ Bind‏ لايوضع بعدة (;) «€010 نصمS‏ يكون شكلة كالتالى : 
Variable Variable Name Datatype‏ 
عند النداء علية وإستدعائة لابد ان نضع قبله ( : ( C010‏ كمايٺى :Variable Name‏ 
نستطيع إستخدام جملة الطباعه العادية مع Ûف— Bind Variable‏ . 


4# إستخراج مرتب الموظف رقم ۱۷۸ ؟ 
Variable V_Sal Number‏ 
BEGIN‏ 
Select Salary into :V_Sal‏ 
From Employees‏ 
Where Employee_Id = 178 ;‏ 
END ;‏ 
/ 
Print V_Sal‏ 
ملحوظة : 
يمكن استخدام ال 1eاطھVari Bind‏ فى ال SQL‏ . 
مثال : 
ال eاVariab Bind‏ المسمى [ه؟_۷ المذكور فى المثال السابق يحتوى على مرتب الموظف رقم ۱۷۸ ونفترض اننا 
نريد الأستعلام عن الموظفين الذين يحصلون على هذا المرتب ؟ 


Select Last_Name 
From Employees 
Where Salary = :V_Sal ; 
. Set Autoprint On هناك جملة لاتعمل الا مع ال مهنا ۷ ہ8 وهی تستخدم فى الطباعة اتوماتیکیاً وتسمی‎ 
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Prompt for Substitution Variables 


# قم بإستخراج مرتب الموظف الذى سأعطيك رقمة ايا كان مستخدما ال ماطaارو۷‏ 81,4 للمرتب؟ 
Set Veriffy Off‏ 
Variable V_Sal Number‏ 
Accept Empno Prompt ' Please Enter a Valid Employee ID '‏ 
Set Autoprint On‏ 
DECLARE‏ 
V_Id Number(6) := & Empno ;‏ 
BEGIN‏ 
Select Salary into :V_Sal‏ 
From Employees‏ 
Where Employee_lId = V_Id ;‏ 
END ;‏ 
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CHAPTER 3 


Writing Executable Statements 


Lexical Units in a PL/SQL Block 


ملحوظة . 


4# عند التعامل مع الأحرف والتواريخ لابد من وضعها بين Single Quotition‏ . 
# نستطيع كتابة الكود على اكثر من سطر . 
٭ نستطیع عمل ٥٥٥1۲‏ ( تعلیق ) للکود بطریفتین کمایلی : 

)١‏ لعمل ۲ عمص ہ٥‏ لسطر واحد نستخدم 


۲) لعمل مص ه٥‏ لأکثر من سطر نستخدم */ ونقفله ب /*. 
من الأفضل ان نقوم بكتابة ال ٤«رعء«ص««هء‏ على الأكواد لشرح وظيفة كل كود وحتى اذا جاء مبرمج اخر ليكمل المشروع 
يستطيع ان يفهم الأكواد بشكل سريع . 
SQL Functions in PL/SQL‏ 
نستطیع استخدام جمیع ال یرمذ)عرس۴ الموجودة بال 8Q1‏ داخل ال ]ام 
Ila‏ |آ— Decode & Group Functions‏ . 


2 
که 


DECLARE 
V_Lname Varchar2(20) := Initcap( ' KING' ) ; 


V_Name Varchar2(20) ; 


BEGIN 
Select First_Name into V_Name 


From Employees 
Where Last_Name Like V_Lname And Salary = 24000 ; 


END; 
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Nested Blocks 
: ملحوظة‎ 


البلوك الداخلى يرى البلوك الخارجى ويؤثر فيه والعكس غير صحيح اى ان البلوك الخارجى لايرى البلوك الداخلى . 


Example 


DECLARE 

V_Father_Name Varchar2(20) := 'reda'; 

V_Date_of Birth Date :='04-Apr-1965' ; 

BEGIN 

DECLARE 

V_Child_Name Varchar2(20) := 'mohamed' ; 

V_Date_of_Birth Date := '04-Dec-1985'; 

BEGIN 

DBMS_OUTPUT.PUT_LINE( V_Father Name ); ==== >>> reda 

DBMS_OUTPUT.PUT_LINE( V_Date_of Birth ); ==== >>> 04-Dec-1985 

DBMS_OUTPUT.PUT _LINE( V_Child_ Name )j  ==== >>> mohamed 

END; 

DBMS_OUTPUT.PUT_LINE( V_Date_of_Birth ); 04-Apr-1965 
END; 
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نستطيع عمل ءاوس للبلوك وتسميته بأى إسم نريدة حتى نتمكن من تحديد البلوك المراد النداء عليه ولكن لابد من 
وضعه بين >> ک>>. 
+ لو هناك متغير فى البلوك الكبير له نفس الأسم فى البلوك الصغير وقمنا بالنداء عليه من داخل البلوك الصغير فالأولوية 
للمتغير الموجود فى البلوك الصغير . 
Operators in PL/SQL‏ 


Logical 
Arithmetic Same in SQL 


Concatenation ll 


Parentheses to control order of operations 


Qualify an Identifier 
Example (I) 
<<SCC>> 

i DECLARE 
V_Father_Name Varchar2(20) := 'reda'; 
V_Date_of_Birth Date :='04-Apr-1965' ; 


/ BEGIN 
DECLARE 


V_Child Name Varchar2(20) := 'mohamed' ; 
V_Date_of Birth Date := '04-Dec-1985'; 
BEGIN 
DBMS_OUTPUT.PUT_LINE( V_Father Name ); ==== >>> reda 
DBMS_OUTPUT.PUT_LINE(scc. V_Date_of Birth ); ==== >>> 04-Apr-1965 
DBMS_OUTPUT.PUT_LINE( V_Child Name )j;  ==== >>> Mohamed 


DBMS_OUTPUT.PUT_LINE( V_Date_of Birth ); ==== >>> 04-Dec-1985 
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Example ( I) 
<<SCC>> 
DECLARE 
V_Sal Number(7,2) := 60000 ; 
V_Comm Number(7,2) := V_Sal * 0.20; 
V_Message Varchar2(255) := ' eligible for commission' ; 
BEGIN 
DECLARE 
V_Sal Number(7,2) := 50000 ; 
V_Comm Number(7,2) := 0 ; 
V_Total Number(7,2) := V_Sal + V_Comm ; 
BEGIN 
V_Message := 'CLERK not' || V_Message ; 
DBMS_OUTPUT.PUT_LINE ( V_Message ); 
scc.V_Comm := V_Sal * 0.30; 
DBMS_OUTPUT.PUT_LINE (scc.V_Comm ); 
END; 
V_Message := 'SALESMAN'||v_message; 
DBMS_OUTPUT.PUT_LINE ( V_Message ); 
END; 


1) eligible for commission . 
2) 0 
3) SALESMAN eligible for commission. 
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CHAPTER 4 
Interacting with the Oracle Server pp 


Using PL/SQL to Manipulate Data 
INSERT UPDATE DELETE MERGE 


Inserting Data 
BEGIN 
INSERT into Departments 
Values (280 , 'Reda_Dept', 100 , 1700); 


END; 
2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 


Updating Data 
DECLARE 
Sal_Increase Employees. Salary % Type := 800 ; 
BEGIN 
UPDATE Employees 
Set Salary = Salary + Sal_Increase 
Where Job_id = 'ST_CLERK!; 


2F FF FF 2F 2F 2F FF 2F 2F 2F 2F 2F 2F 2F FF OF 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 


Deleting Data 
DECLARE 
Deptno Employees.Department id% Type: = 280; 
BEGIN 
DELETE From Employees 
Where Department_id = Deptno; 
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SQL Cursor 


IMPLICIT EXPLICIT 
المبرمج هو الذى يقوم بعمله وسوف نتناولة  هو من النوع الضمنی ای ان اوراكل هى التى‎ 
قامت بعمله ويعمل تلقائياً بمجرد النداء عليه‎ Chap) )7( بالتفصیل فى‎ 
: ملحوظة‎ 
ال إموإCu يعتبر مساحة فى الرام تقوم اوراكل بتجهيز ها اتوماتيكيا مع كل جملة .$1 وتضع بها البيانات القادمة من ال‎ 
. SQL 
SQL Cursor Attributes for Implicit Cursors 


لو وجد بیانات یقوم بإسترجاع عں1 ولو لم یجد بقوم بإسترجاع عی۴ SQL FOUND‏ 
لو لم یجد بیانات یقوم بإسترجاع مںإ1 ولو وجد بیانات یقوم بإسترجاع ءھ۴ SQL NOTFOUND‏ 
يقوم بإسترجاع عدد الصفوف التى تأثرت بالعملية فى الميمورى SQL FROWCOUNT‏ 


# قم بمسح الموظف رقم 206 ومن ثم اطبع عدد الصفوف التى تأثرت بالعملية ان وجد هذا الموظف ؟ 

DECLARE 

V_Rows_Deleted Varchar2(30) ; 

V_Empno Employees.Employee_id% Type := 206; 
BEGIN 

Delete From Employees 

Where Employee_id = V_Empno ; 

V_Rows_Deleted:= (SQL% Rowcount || ' row deleted.'); 

DBMS_OUTPUT.PUT_LINE (V_Rows_Deleted ); 
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قم بإعطاء الموظف رقم ٠٠٠١‏ انو وجد المرتب الأتى "٠٠٠٠‏ ؟ 
DECLARE‏ 
V_Name Varchar2 (20);‏ 
BEGIN‏ 
Select Last_Name into V_Name‏ 
From Employees‏ 
Where Employee_Id = 100;‏ 
IF SQL% Found Then‏ 
Update Employees‏ 
Set Salary = "0000‏ 
Where Employee_Id = 100;‏ 
End IF;‏ 
END;‏ 
ملحوظة : 
لقد قمنا بعمل جملة )مع حتی نعرف ھل یوجد موظف بهذا الرقم ام لا فلو وجد سیأتی بإسمه وان لم يجد فلم يأتى بشىء . 
اما ال 0ND‏ 6۴0ا فتنظر الى ال 5Q1‏ هل وجدت بيانات ام لا فإن وجدت فسوف تقوم بتنفيذ عملية التعديل وان لم 
تجد فلن تفعل شىء . 
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For‏ ر 


. 


While 


^ DECLARE 
V_Myage Number:=30; 
BEGIN 
IF V_Myage < 11 Then 

DBMS_OUTPUT.PUT_LINE (' Iam a child '); 
ELSE 

DBMS_OUTPUT.PUT_LINE (' Iam not a child '); 
End IF; 
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DECLARE 
V_Myage Number:=30; 
BEGIN 
IF V_Myage < 11 Then 
DBMS_OUTPUT.PUT_LINE (' Iam a child '); 
ELSIF V_Myage < 20 Then 
DBMS_OUTPUT.PUT_LINE (' Iam young '); 
ELSIF V_Myage < 30 Then 
DBMS_OUTPUT.PUT_LINE (' Iam in my twenties’); 
ELSIF V_Myage < 40 Then 
DBMS_OUTPUT.PUT_LINE (' Iam in my thirties"); 
ELSE 
DBMS_OUTPUT.PUT_LINE (' Iam always young '); 
End IF; 
END; 
: ملحوظة‎ 
لو تحقق الشرط الأول یتم تنفیذ الأمر الذی بعد n٥ط1 واذا لم یتحقق الشرط الأول یتم اللجوء الى الشرط الثانی واذ تحقق يتم تنفيذ‎ )۱ 
. الأمر الذی بعد ہعط) وإذا کانت الشروط کلھا الںہ یتم تنفیذ الأمر الذی بعد میا۴‎ 


IF Condition Then Action 
rue 3 سوف ینفذ المoن)Ac ۔-‎ 


لم ینفذ lلActiop‏ - 3 Fale‏ 


۲) نستطيع وضع اكثر من 1f‏ فى نفس الجملة . 
۳) كلمة مو[ تأتى مرة واحدة فى نهاية جملة 1۴ . 
)٤‏ فى نهاية الشروط نضع کلمة ; ¡f‏ ل۴ ومننساش نضع ( ; ) فى نهاية 1۴ . 
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CASE Expressions 


DECLARE 
V_Grade Chari) := Upper('&Grade'); 
Appraisal Varchar2 (20); 
BEGIN 
Appraisal := CASE 
When V_Grade = 'A' Then 'Excellent' 
When V_Grade In ('B','C') Then 'Good' 
Else 'No such grade' 
End; 
DBMS_OUTPUT.PUT_LINE ('Grade: '|| V_Grade || ' Appraisal ' || AppraisaD; 
END; 


Handling Nulls س‎ 


ملحوظة : 
المقارنات البسيطة لو فيها إإن الناتج يصبح أ١‏ . 
لو وضعنا ٥)‏ مع اآں× الناتج یصبح ul]‏ . 
مع لہ الأقوی ھو ال عیإھ۴ والأضعف ھو ال eںإآ‏ . 
مع 0۲ الأقوى هو ال عںإ! والأضعف هو ال میاھ۴ . 
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LOOP Statements 


Basic Loop 


Syntax 
Loop 

Statement; 

Exit [When Condition]; 
End Loop; 


قم باضافة ۳ مواقع بإاستخدام ال Basic Loop‏ ؟ 
DECLARE‏ 
V_Country_id Locations.Country_i1d%Type:= 'CA';‏ 
V_Loc_id Locations.Location_id% Type;‏ 
V_Counter Number := 1;‏ 
V_New_City Locations.City %Type := 'Montreal';‏ 
BEGIN‏ 
Select Max(Location_id) Into V_Loc_id From Locations‏ 
Where Country_id = V_Country_id;‏ 
LOOP‏ 
Insert Into Locations (Location_id, City, Country_id)‏ 
Values ((V_Loc_id + V_Counter), V_New_City, V_Country_id);‏ 
V_Counter := V_Counter + 1;‏ 
EXIT WHEN V_Counter > 3;‏ 
END LOOP;‏ 
END;‏ 
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هل ستظل ال مم[ تعمل الى مالانهاية ؟ بالطبع لا علشان كده هتلاقونى عرفت متغير هو بمتابة عداد الذى يمتثل عدد 
لكلا لر اد کد د دا اا ا ا ا د 
009ا عiیهB‏ لابد من عمل متغیر له یکون بمثابة عداد حتی ننهى عملية ال مهم[ عنده . 

اذا لم نحدد ہoنانdمهC‏ ہعطW‏ xitiچ‏ شرط للخروج من ال م٥1‏ فسوف تظل ال م٥[‏ تعمل الى مالانهاية وسوف 
تتوقف ال عوa‏ اهو عن العمل بسبب التهنيج ويظهر هذا Numeric or Value Error :Number <== .Error dl‏ 


Precision too Large 


فرضنا اننا قمنا بعمل الشرط التالى 1> Exit When Counter‏ فان ال 100p‏ زي8 سوف تنفذ مرة واحدة على الأقل 
رغم ان الشرط يخالف ال م0م1 وذلك لأن ال امعمع)ه)؟ تنفذ او لا قبل المرور على ال ومنازdممC‏ . 


While Loop 
Syntax 
While Condition Loop 
Statement; 
End Loop; 
؟‎ WHILE Loop —l قم باضافة ۳ مواقع بإاستخدام‎ 
DECLARE 
V_Country_id Locations.Country_id% Ty pe:= 'CA'; 
V_Loc_id Locations.Location_id% Ty pe; 
V_Counter Number := 1; 
V_New_City Locations.City % Type := 'Montreal'; 
BEGIN 
Select Max(Location_id) Into V_Loc_ id 
From Locations 
Where Country_id = V_Country_id; 
WHILE v_counter <= 3 LOOP 
Insert Into Locations (Location_id, City, Country_id) 
Values ((V_Loc_id + V_Counter), V_New_City, V_Country_id); 
V_Counter := V_Counter + 1; 
END LOOP; 
END; 
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ال While 100p‏ تقوم بعمل )ءعطح اول على الممنازلمم) قبل تتفيذ ال ارع_ع)ه؟ فإذا تحقق تقوم بعمل ال ممما 
واذا لم يتحقق لن تعمل ال ممم[ بعكس ال م100 عزوه8 وكلما تحقق ال مم0نانل مه٣‏ سوف تظل ال م٥[‏ تعمل. 


For Loop 
Syntax 
For Counter in [Reverse] lower-Bound .. Upper-Bound Loop 


Statement; 
End Loop; 


ال ۴٥۲ 10٥p‏ لاتحتاج الی عمل عداد لھا بل تقوم اوراکل بعمله اتوماتیکیا ولکننا نقوم بتسمیته فقط . 
فلو مثا اردنا طباعة الأرقام من ٠١ .... ١‏ فاننانقوم بكتابة الجملة بهذا الشكل 
For I in 1 .. 10 Loop DBMS_OUTPUT.PUT LINE (1I);‏ 
ولو اردنا طباعة الأرقام بشكل عكسى من الرقم ٠١‏ حتى الرقم ١‏ فانن نقوم كتابة الجملة بالشكل التالى : 10 .. 1 ز۲1٥۴‏ 
Reverse Loop DBMS_OUTPUT.PUT LINE (D;‏ 
لانستطیع استخدام اآں× فى بداية العداد واقل قيمه يجب ان نبداً بها هى (1) . 
نستطيع استخدام اكثر من ص٥10‏ داخل بعضهما فى نفس الجملة . 


قم باضافة ۳ مواقع باستخدام While Loop‏ ؟ 
DECLARE‏ 
V_Country_id Locations.Country_id%Type:= 'CA';‏ 
V_Loc_id Locations.Location_id% Ty pe;‏ 
V_New_City Locations.City % Type := 'Montreal';‏ 
BEGIN‏ 
Select Max(Location_id) Into V_Loc_id From Locations‏ 
Where Country_id = V_Country_id;‏ 
FOR iin 1..3 LOOP‏ 
Insert Into Locations (Location_id, City, Country_id)‏ 
Values ((V_Loc_id + i), V_New_City, V_Country_id);‏ 
END LOOP;‏ 
END;‏ 


Eng. Mo7amed Reda E-mail:Dev-reda @ hotmail.com Mobil: (1066734381 


PL/SQL Course 


CHAPTER 6 4 
Working with Composite “_ 


Composite Data Types 


1) PL/SQL Records 


2) PL/SQL Collections :- 
a. Index By tables. 
b. Nested table. 


c. Varray. 


Records 


ال كإدعهR‏ يحمل بداخله اكثر من قيمة على عكس ال إواجء؟ . 

يحتوى أ Generation Language (36) Fields e Record‏ 3 ويتم انشاء هذه الخانات بنفس الطريقة التى 
تستخدمها لغات ال € وال جب 

المبرمج يقوم بتعريف ال عم (a1‏ الخاصة بهذه ال ول ام۴ وتسميتها ايضاثم عمل ال عإطاوزة۷ وإعطاء ال أإمعمR‏ له 
ای متغیر لابد من تحدید نوع بیانات له ای ان ای عاطهنعه۷ لابد من تحديد ءمراه)ه5 له ولكن الأختلاف هذه المرة ان ال 
Datatype‏ هى عبارة عن مجموعة من ال وعمراه)ه وليست واحدة ولذلك يجب علينا انشاء ال ممراه)ه(1 اول وبعد ذلك 
يتم إعطاؤها للمتغير . 


Syntax Create Datatype and Variable . 
Type Type_Name is Record (Field1 Datatype , Field2 Datatype , ....) ; 


Variable ; 
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ملحوظة . 
4# نری اننا قد قمنا بعمل ممر†ههD‏ وتحتوی علی لام۴ 1W‏ وکأننا قمنا بعمل متغیران داخل ال ٥م‏ راوه هذہ وقد قمنا 
بإعطاء هذه ال عمpراهاه5‏ إسماً. 


Field1 (data type) Field2 (data type) Field3 (data type) 
Employee_id Number(6)  Last_Name Varchar2(25) Job_ld Varchar2(10) 


# إستخرج إسم ووظيفة الموظف رقم ٠١١‏ بإستخدام ال 0ء Re‏ ؟ 
DECLARE‏ 
Type Emp_Rec is Record (R_Name Varchar2(20) , R_Job Varchar2(20));‏ 
V_Rec Emp Rec ;‏ 
BEGIN‏ 
Select Last_Name , Job_id into V_Rec‏ 
From Employees‏ 
Where Employee_id = 100 ;‏ 
DBMS_OUTPUT.PUT_LINE (V_Rec.R_Name ||' '|| V_Rec.R_Job) ;‏ 
END;‏ 
ملحوظة : 
فى حالة الطباعه لابد من کتابى اسم المتغير دوت اسم الفيلد (Variable.Field name)‏ . 
عند الأستعلام ووضع القيم داخل المتغير يجب ان يراعى الترتيب الموجود فى ال لإ0ءمR‏ . 
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TROWTIYPE Attribute 
Syntax 
Variable_Name Table_Name % Rowtype ; 
نستخدم ال عمر† سه8 لو اردنا استخراج جميع أعمدة الجدول فلو استخدمنا الطريقة العادية وهى ال إواهع؟ فإننا سنحتاج‎ 
الى تعريف متغيرات بعدد أعمدة الجدول ولو قمنا بعمل لإمعم8 فإننا سوف نحتاج الى تعريف ول[ع ز۴ بعدد أعمدة الجدول‎ 


أيضا و هذا سبب إستخدام خاصية %R0w ype‏ . 


# إستخرج جميع بيانات الموظف رقم ٠٠٠١‏ وقم بطباعة إسمة ومرتبة ؟ 

Exampl (I 
DECLARE 

V_Rec Employees %0 Rowtype ; 
BEGIN 

Select * into V_Rec 

From Employees 

Where Employee_Id = 100 ; 

DBMS_OUTPUT.PUT_LINE ( V_Rec.Last_Name || ' ' || V_Rec.Salary); 
END; 


Exampl (II 

DECLARE 
Type T_Recis Record (R_Sal Number, R_Minsal Number Default 1000, 
R_Hire_Date Employees.Hire_Date % Type, 
R_Rec1 Employees % Rowtype ); 
V_MyrecT Rec; 

BEGIN 
V_Myrec.R_Sal := V_Myrec.R_Minsal + 500; 
V_Myrec.R_Hire_Date := Sysdate; 
Select * into V_Myrec.R_Rec1 
From Employees 
Where Employee_Id = 100; 


DBMS _OUTPUT.PUT_LINE (V_Myrec.R_rec1.Last_Name ||' '|| To_Char(V_Myrec.R_Hire_Date) ||' '||To_Char(V_Myrec.R_Sal) ); 
END; 
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PL/SQL collections 


INDEX BY Tables 
هى نوع من أنواع ال عمراهاه( التى نقوم بعملها وهو يتكون من عمودين العمود الأول بیکون ره ,۲ذ۴ ويفضل ان‎ 
. Composite gl Scalar تكون نوع البيانات به رقمية والعمود الثانی اما ان يكو‎ 


Unique key value 


Jones 


Number Scalar 


Syntax 


TYPE Type_Name Is Table Of ( Column_ty pe | Table.Column% Ty pe | Table % Rowtype ) 
INDEX BY (Datatype ); 
Variable_Name Type_Name; 


Using INDEX BY Table Methods 


خصائص ال ×ملdہ!:-‏ 

.1ا١,dم× -وهى لمعرفة هل هذه الخلية ( صف) موجود فى ال‎ : ٤×4٤ 
-ياتى بعدد الخلايا داخل ×م 0م11 التى تحتو ى على قيم.‎ :€0unt 

)۴4 : -ياتى برقم اول خلية فى ال ×مل .1 بها قيمة. 

4 : - ياتى برقم اخر خلية فى ال ×ع لم1 بها قيمة. 
:P10۲ )0(‏ -يرجع بعدد الخلايا فى ال ×ملم!] قبل 1. 
:N 6×٤ )0(‏ - يرجع بعدد الخلايا فى ال ×>ملم] بعد 1. 

(۵) ۳إ۲1آ: يمسح عدد خلايا (و) من نهاية ال ×مind‏ 
)m,0(‏ eteاDe‏ :يمسح الخلايا من النطاق n‏ الى n‏ فى ال عملم 
او (1) ٠tمامD‏ : يمسح الخلية (ى) من ال ×عinıd‏ 
ويمكن استعمال هذة ال ئل 0ط†م1“ كالاتى: 

Index NAME.Methods_ Name [(parameter)]; 
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Examples(D 


DECLARE 
Type T_Name_Table Is Table Of Employees.Last_name % Type 
Index By Number; 
V_Name T_Name_Table; 
BEGIN 
V_Name (1) := 'Mo7amed Reda'; 
IF V_Name.Exists (1) Then 


Insert into Employees (LAST _Name , Employee_Id , Hire_Date , Job_Id , Email ) 
Values(V_Name(1) , 800 , '1-JAN-2010' ,SA_REP’ , ‘Dev Habib@ Yahoo.com’ ); 


Mobil: 01066734381 f 


END; 


Examples(ID 
DECLARE 
TYPE Emp_Table_Type Is Table Of Employees % Rowtype 
INDEX BY PLS_INTEGER; 
V_Emp Emp_Table_Type; 
V_Max_Count Number := 104; 
BEGIN 
FOR i IN 100 .. V_Max_Count LOOP 
Select * Into V_Emp(i) 
From Employees 
Where Employee_Id = i; 
END LOOP; 
FOR i IN V_Emp.FIRST .. V_Emp.LAST LOOP 
DBMS_OUTPUT.PUT_LINE ( V_Emp(i).Last_Name); 
END LOOP; 
END; 
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٭ ماھو ال میں وماهی فائدتة ؟ 
- ال Cursors‏ icitاExp‏ هو ليس من النوع الضمنى اى ان المبرمج هو الذى يقوم بعمله وفتحه وتعبئته وغلقه وهو عبارة 
عن مکان فی المیموری تقوم فيه بعمل عمليه معينه اى اننا نقوم بتخزين كل البيانات التى نحتاحها من ال موهوطه)ه فى 
ال میں بدلا من ان نذهب فى كل مرة الى ال معءهطه)ه( ونستدعى البيانات وهذا طبعا اسرع بكثير ويوفر وفتا 
كبيراً اذا فائدته الكبرى فى السرعة فى الأستعلامعن البيانات فبدلاً من ان نضع القيمه من ال ميوطه)ه5 فى المتغير 
فنأتی بكل البيانات التى نريدها مرة واحدہ من ال امور الذى بطبيعته مخزن فى الميمورى ثم نقلها الى المتغير . 


Syntax 
DECLARE 

Cursor Cursor_Name is Select_Statement; 
BEGIN 

Open Cursor_Name ; 

Fetch Cursor_Name Into Variables ; 

Close Cursor_Name ; 


END; 
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؟"٠ إستخرج أرقام وأسماء موظفى الأدارة رقم‎ # 
DECLARE 
Cursor Emp_Cursor is Select Employee_Id , Last_Name 
From Employees 
Department _Id = 30 ; 
V_Id Employees.Employee_Id%Type ; 
V_Name Employees.Last_Name %Type ; 
BEGIN 
Open Emp_Cursor ; 
LOOP 
Fetch Emp_Cursor into V_Id , V_Name ; 
Exit When Emp_Cursor %Notfound ; 
DBMS_OUTPUT.PUT_LINE ( V_Id || ' and his name is :' || V_Name ); 
End Loop ; 
Close Emp_Cursor ; 
END; 


# قم بحل المثال السابق ولکن باستخدام متغیرات من النوع )وهم C٥,‏ وبالتحدید باستخدام ال لإ0ء ء۸ بدلا 
من المتغيرات ال إوامSc؟‏ 
DECLARE‏ 
Cursor Emp_Cursor is Select Employee_Id , Last_Name‏ 
From Employees‏ 
Where Department _ Id = 30 ;‏ 
V_Rec Emp_Cursor %Rowtype ;‏ 
BEGIN‏ 
Open Emp_Cursor ;‏ 
LOOP‏ 
Fetch Emp_Cursor into V_Rec;‏ 
Exit When Emp_Cursor %Notfound ;‏ 
DBMS_OUTPUT.PUT_LINE ( V_Rec.Employee_Id || ‘ ’ ||V_Rec.Last Name );‏ 
End Loop ;‏ 
Close Emp_Cursor ;‏ 
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لقد قمنا بعمل ال Cursor‏ ووضعنا به کل البیانات التی نريدھا من ال مع طھ)ھ( تم قمنا بإستدعائھا من ال orیئCur‏ 
الى المتغير وبسرعه لأن الأثنان فى الميمورى سواء ا Variable‏ او |— Cursor‏ . 


Explicit Cursor Attributes 


تعود بقيمه 1۲1٥‏ لو مفتو ح والعكس. ISOPEN‏ 
تعود بقیمه عں۲۲ لوال s01اںC‏ فاضي والعكس. %NOTFOUND‏ 
تعود بقیمه عں1۲ لوال ۲مواں) به بیانات والعکس. FOUND‏ 
تعود بعدد الصفوف التي تم سحبھا من ال u1۶01ںC. ROWCOUNT‏ 0% 


Cursor FOR Loops 
٣۴٥۲ مع ال ہموںںC من الأشیاء الشائعة الأستخدام حیث اننا لانحتاج الى تعریف متغیر بالنسبة لل‎ ۴٥۲ مہp استخدام‎ - 
وأیضا لانحتاج لفتح و لا لتعبئة و لالغلق ال میں اذا فلن نحتاج الا لعمل ال میں فقط وتقوم اوراکل‎ [م0p‎ 
. اوتوماتيكيا بفتحة وتعبئته وغلقة‎ 


استخرج ارقام واسماء موظفی الأدارة رقن ۰ بإاستخدام ال p‏ 00 ۴0۲ ؟ 
DECLARE‏ 
Cursor Emp_Cursor is Select Employee_Id , Last_Name‏ 
From Employees‏ 
Where Department _ Id = 30 ;‏ 
BEGIN‏ 
For Recin Emp_Cursor Loop‏ 
DBMS _OUTPUT.PUT LINE (Rec.Employee_Id || ° ’ ||Rec.Last Name );‏ 
End Loop ;‏ 
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Syntax %eISOPEN Attribute 
BEGIN 
IF NOT c_emp_cursor%ISOPEN THEN 
OPEN c_emp_cursor; 
END IF; 
LOOR 
. PROWCOUNT s %NOTFOUND ةيصlخلا مثال على استخدام‎ 
ECLARE 
Cursor C_Emp Is Select Employee_Id, last_name 
From Employees; 
V_Rec C_Emp% Rowty pe; 
BEGIN 
Open C_Emp ; 
LOOP 
Fetch C_Emp INTO V_Rec; 
Exit When C_Emp %Rowcount > 10 or C_Emp %Notfound; 
DBMS_OUTPUT.PUT_LINE ( V_Rec.Employee_Id ||' '|[V_Rec.Last_Name); 
End Loop; 
Close C_Emp ; 
END ; 


فى هذه الحالة اى شرط يتحقق اول تخر ج ال «lw 100p‏ |آ Cursor‏ اصبح فارغا او عدد الصفوف التى تم سحبها 
رمن ١‏ 
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. Cursor FOR Loops Using Subqueries —آl‎ مlختwا‎ JE Jاٿم‎ % 
BEGIN 
For Rin ( Select Employee_Id, Last_Name From Employees 
Where Department _Id =30 ) LOOP 
DBMS_OUTPUT.PUT_LINE ( R.Employee_Id ||' '[R.Last_Name); 
End Loop; 
END; 


کل مافعلناہ اننا بدلا من عمل ال rموہںC‏ ووضع جملة الأستعلام داخلھ قمنا بعمل رعںgطاںu؟‏ مکان ال ہoوںںC‏ فی 
ال م100 إم] فقط وهى تقوم بنفس الوظيفه ولكن ليس بنفس السرعة . 


. Cursors with Subqueries —آl‎ مlختwا‎ JE Jاٿثم‎ 
DECLARE 
Cursor Sub is Select D.Department_Id , D.Department_Name,E.Staff 
From Departments D, (Select Department _ Id, Count (*) as Staff 
From Employees 
Groub by Department_Id) E 
Where D.Department_Id = E.Department_ Id And E.Staff >= 3; 


ناتج هذا ال میں٥‏ ھو ارقام واسماء الآدارات التی بھا موظفین اکبر من او یساوی ۳ موظفین . 


Eng. Mo7amed Reda E-mail:Dev-reda @ hotmail.com Mobil: (1066734381 


PL/SQL Course 


Cursors with Parameters 


- الفائدة منه اننا نستطيع تغيير القيم الناتجة عن ال إمsرuںC‏ عن طريق إدخال ء١عاعصهإه۴‏ لتغيير النواتج . 


Example 
DECLARE 
Cursor C_Emp (P_Id Number) is Select Employee_Id, Last_Name 
From Employees 
Where Department _Id = P_Id ; 
V_Id Number ; 
V_Name Varchar2(20) ; 
BEGIN 
Open C_Emp( 10) ; 
Loop 
Fetch C_Emp Into V_Id , V_Name ; 
Exit When C_Emp%Notfound ; 
DBMS_OUTPUT.PUT_LINE (V_Id || ’ ’ || V_Name); 
End Loop ; 
Close C_Emp ; 
DBMS_OUTPUT.PUT LINE (-----------.--------------- 
Open C_Emp( 30 ) ; 
Loop 
Fetch C_Emp Into V_Id , V_Name ; 
Exit When C_Emp%Notfound ; 
DBMS_OUTPUT.PUT LINE (V_Id || ’ ’ || V_Name); 
End Loop ; 
Close C_Emp ; 
END; 


بهذا الشكل نكون قد قمنا بتغيير البيانات اكثر من مرة عن طريق فتح ال إموإں٣‏ مرة اخرى ببيانات اخرى ولكن ذلك 
یتطلب منا غلق ال Cursor‏ القدیم والا سیظھر لنا Error‏ انه مفتو ح بالفعل وللتغلب على هذه المشىكلة نستخدم الخاصية 


. Cursor _Name%Isopen 
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CHAPTER 8 
_ Handling Exceptions 


- كماذكرنا من قبل ان هذه المرحلة هى مرحلة إختيارية نسطتيع الأستغناء عنها ولكنها مرحلة هامة وفيها يتم التعامل مع 
الأخطاء التى ممكن ان تظهر للمستخدم النهائى ومعالجتها وإظهارها له بصور يستطيع فهمها وقرأتها حيث ان الأخطاء 
التى تظهر من اوراكل لايستطيع المستخدم النهائى فهمها لذلك نظهرها له بصورة بسيطة . 


Exception Types 


Predefined Oracle Server IPTC Reise 
Non-predefined Oracle Server | Implicitly Raised 
User-defined Explicitly Raised j a المبرمج هو الذي پقوم بعمله والٽحكد‎ 


Predefined Oracle Server 


- هناك حوالی ۲١‏ م8 متعارف علیھم من قبل اوراکل وهم المشھورین ویکون لدیھم إسم للد ہ۴ وایضا رقم ونص 
للرسالة . 
Example‏ 
DECLARE‏ 
V_Name Varchar2(20);‏ 
BEGIN‏ 
Select First_Name into V_Name‏ 
From Employees‏ 
Where Last Name Like ‘King?’ ;‏ 
DBMS_OUTPUT.PUT LINE (‘V_Name’”);‏ 
EXCEPTION‏ 
When Too_Many_Rows Then‏ 
DBMS_OUTPUT.PUT LINE (‘Query Retrieved Multiple Rows’);‏ 
END;‏ 


Syntax Exception 
EXCEPTION 
When Exception1 [Or Exception2] Then Statement ; 
O Then Statement ; ] 
[When Others 
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- لو وجد اکثر من موظف یسمی ع1 فإنه سوف یظهر 8۲ ان هناك اکثر من شخص ولكن مع كتابة ال 
Exception‏ فستظهر الرسالة التلی کتبناها وهذا ال ۲م٣۴‏ من المشاهير من ال ۲١‏ 
- لو قمنا بكتابة هذه الجملة 
Select Last_Name From employees Where salary = 2542184518 ;‏ 
فإنه سوف يظهر لناهذا ال ]۴ => لunه۴ N0 ata‏ لأنه لايوجد موظف يأخذ هذا المرتب 
DECLARE‏ 
V_Name Varchar2(20);‏ 
V_Sal Number;‏ 
BEGIN‏ 
Select Last_Name into V_Name‏ 
From employees‏ 
Where salary = 2542184518;‏ 
DBMS_OUTPUT.PUT LINE (“V_Name' );‏ 
DBMS_OUTPUT.PUT_LINE ('V_Sal' );‏ 
EXCEPTION‏ 
When No_Data_Found Then‏ 
;(' لایوجد موظف یİخذ‏ هذ المرتب' ( DBMS_OUTPUT.PUT_LINE‏ 
When Others Then‏ 
DBMS_OUTPUT.PUT_LINE (SQLCODE || " || SQLERRM);‏ 
END;‏ 
ملحوظة : 
- بهذه الصورة سوف يظهر انه لايوجد موظف بهذا المرتب ولن يقوم بطباعة ال إهي_۷ ولاال مسوم _۷ لأنهماجاءا 
بعد جملة †ع[ع؟ التی تحتوى على ال ۲م اما لو وضعنا جملة الطباعه المرتب والأسم اعلى ال †ءم[م$ فإنه سوف 
تقوم بطباعة Nui]‏ . 


ا 
ا 
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وسوف نقوم الأن بعرض ال اماع المتعارف عليھا والمشھورة وکما قلنا من قبل انھا ۲١‏ ہہ متعالرف عليھم 
وهم کالأتی : 
Oracle Exception Name Oracle Error Explanation‏ 


DUP_VAL_ON_INDEX OFRA-00001 You attempted to create a duplicate value in a eld restricted by a 
unique index. 


TIMEOUT_ON_RESOURCE ORA-00051 A resource timed out, took too long. 
TRANSACTION_BACKED_OUT ORA-00061 (The remote portion of a transaction has rolled back 


The cursor does not yet exist, The cursor must be QPENed before any 
iia gri ORA- 01001 FETCH cursor or CLOSE cursor operation 


NOT_LOGGED_ON ORA-01012 [You are not logged on 
LOGIN_DENIED ORA-01017 [Invalid usemame/password. 
NO_DATA_FOUND ORA-01403 No data was returned 


You tried to execute a SELECT INTO statement and more than one 


TOO_MANY_ROWS ORA-01422 
row was returned. 


Divide by ZeTIO eITOT 


ZERO_DIVIDE ORA-01476 


INVALID_NUMBER ORA-01722 [Converting a strıng to a number was unsuccessful 
STORAGE_ERROR ORA-06500 (Out of memory. 
PROGRAM_ERROR ORA-06501/ | Generic "Confact Oracle support" message 


You tried to perform an operation and there was a eıror on a 
VALUE_ERROR ORA-06502 | conversion, truncation, or invalid constraining of numeric or character 
data 


ROWTYPE_MISMATCH ORA-06504 
CURSOR_ALREADY_OPEN ORA-06511 he cursor is already open 
ACCESS_INTO_NULL ORA-06530 
COLLECTION_1S_NULL ORA-06531 


Tour program aiteıupts to call a MEMBER method on a uull instance, 
SELF_IS_NULL That ıs, the buılt-ın parameter SELF (which ıs always the first 
parameter passed to a MEMBER method) is null. 


Your program references a nested table or varray element using an 
index number larger than the number of elements in the collection 


SUBSCRIPT_BEYOND_COUNT 
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Non predefined Oracle Server 

- فى هذه الحاله ال مع لايمتلك هوية اى لا يمتلك اسم ولديه بالطبع رقم ولديه رساله ولكن المشكلة اننا لإنستطيع النداء 
عليه لأن ليس له إسم لذلك نقوم بعمل متغیر من النوع ٥10م ۴×٥‏ ای انه یحمل بداخلة ۴]٥۲‏ ونضع 
الع بداخله عن طریق مایسمی باد ٣a‏ ع٣۴۵‏ وھی التی تربط وتضع ال ٤٣٥۲‏ داخل 
Variable‏ 

۔ مالذی یحدث اذا حاولنااضافة قیمة [اںN×‏ فی عمود Not Nul]‏ ؟ 
بالطبع سیظهر ۴۲۲۲ وهو رقمة ٠٠٤١١‏ ورسالتە تقول اننا لانستطیع وضع قيمة 1ں" داخل 
عمود 11ں 0۲ لكن المستخدم النهائى لو ظهرت له هذه الرسالة وهذا الرقم لن يفهم شيئا لذلك 
سوف نظهرله رساله يستطیع فهمها . 


Example 


DECLARE 
V_Error Exception; 
Pragma Exception_init (V_Error , -01400); 
BEGIN 
Insert into Departments (Department_Id , Department_ Name) 
Values ( Null , 'Mo7amed Reda’); 
EXCEPTION 
When V_ÃError Then 
DBMS_OUTPUT.PUT_LINE ('دgمعdl‎ Jخاد (الابد من وضع قيمة‎ ; 
END; 


User Defined Exceptions 
ولکن الکود لم یطبق فعلیا ولم‎ 1/01 Proce ura Succەووfںااy هذه المرة لاتوجد مشكلة لأنه یظهر لنا‎ 


ینجح فی تنفیذ المطلوب ولکنه بدلا من ان يظهر لنا ه8 يوضح ان الععملية لم تتم يظهر انها نجحت فعن طريق 


استخدام عوزه۸ نستطيع اذا لم ينفذ الكود المطلوب منه فإننا نجبرة على اظهار رسالة توضح ان العملية لم تتم . 
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Example 
DECLARE 
V_Error Exception ; 
BEGIN 
Update Employees 
Set Salary = 12000 
Where Employee_Id = 123456 ; 
IF SQL%Notfound Then Raise V_Error ; 
End IF; 
DBMS_OUTPUT.PUT_LINE (SQL% Rowcount) ; 
Commit; 
EXCEPTION 
When V_ÃError Then 
DBMS_OUTPUT.PUT_LINE لا یوجد موظف بذ رڌم(‎ '(; 
END; 


لو لم نستخدم عوزهR‏ لكان ظهر لنا رساله انه تمت عملية التحديث بنجاح وهذا طبعا لم يحدث لعدم وجود موظف 
بهذا الرقم . 

RO WCOUNT‏ -= > تقوم بالقراءة عدد الصفوف التى تأثرت بالعملية من خلال الميمورى فإذا كنا كتبنا 
Commit‏ قبل 58%8 فإنه لن يظهر ولن يطبع شيئاوذلك لان ابه تقوم بعمل مرج للعمليات من 
الميمورى الى ال مودطاه)ة0 وتمحى ما فى الميمورى . 
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؟( Raise_Application_ Error‏ 
- فى هذه المرة هناك ۲0ع او لا لایهم لکن المبرمج من خلاله یستطیع ظهور ۴۲٥۲‏ صریح مثل 80۲ اوراکل لھ 
رقم ورسالة ومن الممكن ان نقوم بأستخدام ارقام خاصة باوراكل ولقد قامت اوراكل بوض مجموعه من الأرقام 

نستطیع استخدامها وهی تبداً من ۲۰۰۰۰ حتی ۲۰۹۹۹ ونستخدم ai0 1_ E0۲‏ icاRaise_App‏ حتی نقوم بهذه 
العملية ونستطيع ان نفعل ذلك بمكانين وھما اما منطق |— Executable | ةةط¦طia yl Exception Section‏ 
Section .‏ . 
Executable Section‏ - 
BEGIN‏ 
Delete From Employees‏ 
Where Employee_lId = 123456;‏ 
IF SQL%Found Then‏ 
DBMS_OUTPUT.PUT_LINE (SQL FRowcount );‏ 
Elsif SQL %Notfound Then‏ 
;( الرقم بهذا موظف يوجد ل‘ ,20001-( Raise_Application_Error‏ 
End IF;‏ 
END;‏ 


- Exception Section 
DECLARE 
V_Name Varchar2(20); 
BEGIN 
Select Last_Name into V_Name 
From Employees 
Where Employee_Id = 123456; 
EXCEPTION 
When No_Data_Found Then 
Raise_Application_Error (20002, الرقم بهذا موظف يوجد ل‎ °(; 
END; 
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- هو نوع من انواع البلوكات ويعتبار احد افراد عائلة ال صهإعٍهإمطان؟ وتكوينه شبيه بالبلوك ال یuمصرممم۸‏ مع إختلاف بسيط 
مع ال Procedure‏ لانستخدم ال عإوآءم ونستخدم بدلا منه ی1 او ۸۶ حتی لو لم نضطر الى تعريف وعاطاهزه۷ والباقی كما 
هو ومیزة ال Procedure‏ اننا نقوم بكتابة الكود مرة واأحدة ونستطيع تنفيذة والنداء عليه اکثر من مرةلأنه مخزن گ ال Database‏ 


ولكنه ليس من الضرورى ان يعود هذا الأجراء بقيمة معينه ... اى انه ممكن ان يعود بقيمة او لا... 


؟Anonymous‎ Block lg Subprogram (Procedure , Function) مالفرق بيù أ‎ % 


Anonymous Subprogram 


Syntax 
Create [| or Replace ] Procedure Procedure_Name 
[ (Parameter1 [Mode1] Datatype1, Parameter2 [Mode2] Datatype2, .. .) |] 
Is | As 
Variables; 
BEGIN 
END [Procedure_Name ]; 
: ملحوظة‎ 
. Procedure نقوم بإستخدام كلمة للتعديل على ال‎ - 
. تستطیع ان تأخذ )مص و۲٣ او لا‎ Procedure ال‎ 
علیهم فإذا كان ال ×هامر؟ ليس به أخطاء‎ ٤1e) يقوم بعمل‎ Comper فإن ال‎ Function او اك‎ Procedure عند عمل ال‎ 
Warning: فإنه تظهر رسالة تقول ا2ء ]° ء۴0 واذا كان هناك ۲م۴۲ فسوف تظهر هذه الرسالة‎ 
. Function Created with Compilation Error 
. Show ٤٣0٤ء لمعرفة الخطا الموجود نقوم بکتابة‎ 
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قم بعمل ۴٠١٤٥۲٠‏ تقوم باضافة ادارة جديدة؟ 

CREATE PROCEDURE Add _ Dept 
IS 

V_Dept_Id Number := 280 ; 

V_Dept_Name Varchar2(20) := 'Outbox'; 
BEGIN 

Insert into Departments ( Department Id,Department_ Name) 

Values (V_Dept_Id , V_Dept_Name ); DBMS_OUTPUT.PUT_LINE (‘Inserted '|| 
SQL% Rowcount ||" row '); 
END; 

بھذا الشکل فد منا بعمل ue‏ ع٤٥۲‏ ولکنھا لم تنفذ بعد وان اردنا ان ننفذها فان ذلك یتم بطریقتین وھما: 


- Execute Add_Dept ; 


- BEGIN 
Add_Dept ; 
END; 


- يفضل إستخدام الطريقة الثانية لأن الطريقة الأولى لا تعمل فى الفورمز مستقبلً . 


Parameters 


- هى شبيهه بالمتغيرات ولكنه تمرر القيمة فقط داخلها اما المتغير فيقوم بحمل القيمة ونقوم بتعريف ال إع)ع جج٣‏ بعد إسم ال 
Length ذëİs Procedure‏ . 
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-: Parameters Formal 


هو ال إعاعص ۲ه فى حالة الأنشاء مثل : 
Create Procedure Add Name (P_Name Varchar2 )‏ 


Actual Parameters -‏ :- هو ال Parameter‏ فى حالة إعطاء قيمة له مثل : 


BEGIN 
Add Name (“ Mo7amed Reda’); 
END; 


Using IN Parameters: Example 


قوم بعمل ٠ں‏ ل ع١٠٣۴‏ نقوم بإعطائها رقم الموظف ونسبة الحوافز وتقوم هى بالتعديل فى مرتبه بهذه النسبة ؟ 


CREATE OR REPLACE PROCEDURE Raise_Salary 
(P_Id IN Employees.Employee_Id% Type, P_Percent IN Number) 
IS 
BEGIN 
Update Employees 
Set Salary = Salary + (Salary * P_Percent) 
Where Employee_lId = P_Id; 
END Raise_Salary; 


BEGIN 
Raise_Salary (100 ,.4); 
END; 


Using OUT Parameters: Example 


قم بعمل ٥٤ں ۴۲٠٤۲٤٥‏ نقوم بإعطانها رقم الموظف وهى تعطينا إسمه ومرتبه ؟ 


Mobil: 01066734381 f 


CREATE OR REPLACE PROCEDURE Query _ Emp 

(P_Id IN Number ,P_Name OUT Varchar2, P_Sal OUT Number) 
IS 
BEGIN 

Select Last_Name, Salary Into P_Name, P_Sal 

From Employees 

Where Employee_lId = P Id; 

END Query_Emp; 
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DECLARE 
V_Name Varchar2(20); 
V_Sal Number; 
BEGIN 
Query_Emp ( 171, V_Name , V_Sal ); 
DBMS_OUTPUT.PUT LINE ( V_Name || ° ’ || V_Sal); 
END; 


VARIABLE V_Name Varchar2(25) 
VARIABLE V_Sal Number 
EXECUTE Query_Emp (171, :V_Name , :V_SalD ; 
/ 
PRINT V_Name , V_Sal 
: ملحوظة‎ 
. Ou من النوع‎ Parameter lب‎ Procedure عنما نقوم بالنداء على |آ‎ Va لابد من عمل عإطاھا‎ - 


Using IN OUT Parameters: Example 
سوف أعطيك رقم موبایل وارید استخراجه بهذا الشکل 010(0984-455) ؟‎ 


CREATE OR REPLACE PROCEDURE Format Phone 
(P_Phone_No IN OUT Varchar2) 
IS 
BEGIN 
P_Phone_No := '(' || Substr (P_Phone_No,1,3) || 
')' || Substr (P_Phone_No,4,3) || 
'-' || Substr (P_Phone_No,7); 
END ; 
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ار anh‏ * 4 
و ولتنفذدهاء- 
يدها 


DECLARE 
V_Phone Varchar2(20) := '01009844556'; 
BEGIN 
Format_Phone (V_Phone ); 
DBMS_OUTPUT.PUT_LINE (V_Phone ); 
END; 
: ملحوظة‎ 
In Out ع‎ gill ja Parameter leڊ‎ Procedure —| Je ءادiلب عندما نقوم‎ Va r1ھطاع لابد من عمل‎ - 


Syntax for Passing Parameters 


- نستطيع النداء على ال یعامص و٣٥‏ بأکثر من شكل :- 


قم بانشاء مع,رمں‌م؟ تبدأ من ٠۰۰۰‏ وتزید بمعدل ۱ ؟ 
Create Sequence Reda_Seq Start With 1000 Increment By 1 ;‏ 
٭ قم بعمل ٥ں ۴۲٥٤٤‏ نقوم بإعطائها رقم الموظف وهی تعطينا إسمه ومرتبھ ثم قوم بالنداء علیھا بالثلاث طرق 
السابقة ؟ 


CREATE OR REPLACE PROCEDURE Add Dept 
(P_Name Varchar2, P_Loc IN Number ) 
IS 
BEGIN 
Insert Into Departments ( Department Id, Department _ Name, 
Location_Id) 
Values (Reda_Seq.Nextval , P_Name, P_Loc); 
END Add _Dept; 
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e Passing by Positional Notation 
Execute Add Dept (“Education’ , 2300 ); 


» Passings by Named Notation 
Execute Add Dept (P Loc => 2400, P Name => ‘Training’ ); 


» Passing by Combination Notation 
Execute Add Dept (“Advertising’ , P Loc => 2500 ); 


Invoking Procedures 
نستطيع النداء على ال ؟إمامصهإPa من خلال يماط usمصرمممه وتعرضنا لأمثلة كثيرة فى هذا الصدد وايضامن خلال‎ - 
. اخری‎ Procedure 
CREATE OR REPLACE PROCEDURE Process_Employees 
IS 
Cursor Emp_Cursor is Select Employee_Id 
From Employees; 
BEGIN 
For Recin Emp_Cursor Loop 
Raise_Salary Rec.Employee_Id , .3); 
End Loop; 
Commit; 
END Process_ Employees; 
Handled Exceptions 
تسمی اp٥_۸41 وقمنا بعمل ودنام ەE×c لھا من الأخطاء التی يمكن ان تقع بها ثم قمنا‎ P٥٥٥ ںrع علی إفتراض اننا قمنا بعمل‎ - 
. A۸44_eم) لم۲0 اخری ووظیفتها هی النداء علی‎ ure بعمل‎ 
ماذا يحدث لو حدث خطأ فى ال ٤مء_۸44 ولم نكن قد قمنا بمعالجته ؟‎ 
. ۔ اذا کنا قد قمنا بمعالجتھ فلن یحدث شیئا اما اذا کان هناك مإ ولم یعالج فسوف یظھر لنا ہم ویوقف کل شیء‎ 
Removing Procedures 
Syntax 


- DROP Procedure Procedure_Name ; 


Example 
- DROP Procedure Raise_Salary; 
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Viewing Procedures in the Data Dictionary 


ك لرؤية ومعرفة الكود الذی قد قمت بکتابته داخJ‏ |آ Procedure‏ التى قمت بعملها 
Select *‏ 
From User_Source‏ 
Where Name = ' Add_Dept '‏ 
And Type = 'PROCEDURE'‏ 
Order by Line;‏ 


- لروؤية ومعرفة اسماء ال ue‏ ع٥٤٥٥‏ التى قمت بعملها 
Select Object_Name‏ 
From User_Objects‏ 
Where Object_Type = 'PROCEDURE!;‏ 
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- هو نوع من انواع البلوكات وهو يعتبر احد افراد عائلة الد صه۲عٍهإمطن؟ وتكوينه يكون شبيه بالبلوك العادی ال usمصرمممA‏ مع 
إختلاف بسیط لاتستخدم عإو[اcمDe‏ مع ال «مناعمں۴ وتستخدم بدلا منھا ی] او ی۸ ولابد من کتابة ی1 او ی۸ حتی لو لم نضطر 
الة تعريف وعاطونه۷ اما الباقی كما هو ومیز ة افFunction‏ اننا نقوم بكتابة الكود مرة واحدة والنداء علية وتنفيذة اكثر من مرة 
لأنها مخزنه فى ال ميوطاهاه( ولابد ان تعود ال «0ناعس۴ بقيمة . 


+ مالفرق ڊيù‏ أ Anonymous Block İl Subprogram (Procedure , Function)‏ ؟ 


Anonymous Subprogram 


Syntax 
CREATE [ OR REPLACE ] FUNCTION Function_Name [(Parameterl [model] Datatypel, ....... 
RETURN Datatype 
IS|AS 
[Variables ; ...] 
BEGIN 
RETURN expression; 
END [function_name]; 
: ملحوظة‎ 
ای اننا نقوم بتھیئة ال ممن)عس۴ ان الناتج المراد‎ Return Datatype ف |آ‎ Function وا‎ Procedure الفرق بين ال‎ 
إستخراجة سيكون من الذى قمت بتحديدة ونستقبله من خلال «دزووعآم»×٤ «ں]٠8 الذى فيه نحدد المتغير الذى نريد ان نضع فيه‎ 
. القيمة‎ 
. الا من النوع ہ] فقط‎ Pam) لانستطیع مع ال ہ٥ناہں۴ استخدام‎ 
لا نحدد لھا‎ a) كما عرفناها سابقا وعند تعریفها فإننا لانعطیها )ع م1 وایضا ال وں)هR عند تحديد ال عمر)‎ Parameter ال‎ 
. ايضا‎ Length 
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٭ قم بعمل ر ذاءہں ۴ نعطیها رقم الموظف وهی تعطینا مرتب ؟ 
CREATE OR REPLACE FUNCTION Get_Sal ( P_Id Number )‏ 
RETURN Number‏ 
IS‏ 
V_Sal Number:= 0;‏ 
BEGIN‏ 
Select Salary into V_Sal‏ 
From Employees‏ 
Where Employee_id = P_Id;‏ 
RETURN V_Sal;‏ 
END Get_Sal;‏ 


هناك اربع طرق لتنفیذ هھذہ ال رFunc)io؟‏ 


لوط 
- لابد من عمل متغير عند النداء على ال ممناعمں۴ لأسترجاع القيمة فيه . 
قم بعمل 0٥‏ ذاءمں۴ نعطيها المرتب وهى تعطينا صافى الضريبة الخاص به؟ 
CREATE OR REPLACE FUNCTION Tax (P_Value IN Number)‏ 
RETURN Number‏ 
IS‏ 
BEGIN‏ 
RETURN (P_Value * 0.08);‏ 
END Tax;‏ 
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Select Employee_Id, Last_Name, Salary, Tax(Salary) 
From Employees 
Where Department Id = 100; 
٭ قم بعمل ہ٥ناcہں۴ نعطیھا رقم الموظف وتعود ب مں۲] لو مرتبه اکبر من متوسط مرتبات ادارته و ٥٤ا۴ لو العکس ؟‎ 
CREATE FUNCTION Check_Sal ( P_Id Number) 
RETURN Boolean 
IS 
V_Dept_Id Employees.Department _Id% Ty pe; 
V_Empno Employees.Employee_Id% Type ; 
V_Sal Employees.Salary % Type; 
V_Avg_Sal Employees.Salary % Type; 
BEGIN 
Select Salary,Department_Id into V_Sal,V_Dept_Id 
From Employees 
Where Employee_Id = P_ Id; 
Select Avg(Salary) into V_Avg Sal 
From Employees 
Where Department _Id=V_Dept_ Id; 
IF V_Sal > V_Avg_Sal THEN 
RETURN True; 
ELSE 
RETURN False; 
End IF; 
EXCEPTION 
When NO_DATA_FOUND Then 
RETURN Null; 
END; 
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DECLARE 
V_Check Boolean ; 
BEGIN 
V_Check := Check_Sal ( 205) ; 
IF V_Check = True Then 
DBMS _OUTPUT.PUT LINE (T’”); 
ELSIF V_Check = False Then 
DBMS _OUTPUT.PUT LINE (F’); 
End IF ; 


. ملحوظة‎ 
. Show Errors بٽiكi‎ Îطخلا لرؤية‎ - 


Removing Functions 
Syntax 


DROP Function Function_Name ; 


Example 
DROP Function Get_Sal; 


Viewing Functions in the Data Dictionary 
. :اءمسں۴ التى قمت بعملها‎ ٥٥ لرؤية زمعرفة الکود الذی قمت بکتابته داخل ال‎ + 
Select Text 
From User_Source 
Where Name = ' Get_Sal ' 
And Type = 'FUNCTION' ; 
. لرؤية ومعرفة أسماء ال sرهناءمرں۴ التى قمت بعملها‎ 
Select Object_Name 
From User Objects 
Where Object_Type ='FUNCTION'!; 
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: الأهداف‎ 
. التعرف على ال ععج)ءه8 ومكوناتها‎ ٠ 
.Exceptions — Functions — Procedures — Cursors — Variables ja مجم عة‎ jمضتت‎ Backage ءاشil‎ 


ه التعرف على كيفية استدعاء وتشغيل ال ععٍه )ء8 . 


تتكون ال ءءوkءه‏ 8 من جزئين وهما : 
Body (" Specification ('‏ 


- لاحظ انه لابد من اشاء ال «مااھءگ¡ءممS‏ اول تم نقوم بإنشاء ال رله8 حيث انه لايمكن اشاء ال yرله8‏ اولا . 


- يمكنك إستدعاء او عمل ([[ھC)‏ لای Procedure‏ او Function‏ بشرط وجودهم فى ال t10nھعتاءممS‏ (الجزء ال عناط۲u)‏ ولكن 
لايمكن أستدعاء Procedure‏ او Function‏ الموجودین فى ال ل80 Package‏ فقط (الجز ء ال ماھ۲¡۷ فقط) . 


الرسم السابق : 
يمكننا إستخدام ال age‏ )ء8 عن طريق ال (۸ (P٥ ure‏ حیث تم تعریف هذ |— Specification d J Procedure‏ . 
ولايمكننا إستخدام ال عع )ء8 عن طريق ال (8 عdurع‌cہإP)‏ حیث لم تعرف هذ |— Specification dJ Ja Procedure‏ . 
لاحظ انه يتم حفظ ال ”0إاهعاگزعمم؟ وال رل8 الخاصين بال عه )ء8 فى جزئين منفصلين داخل الأوراكل . 
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كيف يقوم اوراكل بتنفيذ الكود الخاص بال موٍهو)ء84:-‎ - 


ORACLE 
ج‎ SQL*Plus 
مر‎ (2) Load 1941 [ lus 


5 
2 


spec.sql 


a 
a 

2 

2 


6G) Create (compile and store) 


0 


۵ 


body. sql 


ANNAN 
tN 
NEE e 
CANNR 
= 
ج‎ 


Use SHOW ERRORS 
for compilation errors 


یتم کتابة الکود اول فی عاز٣‏ )×16 . 
یتم عمل ھم[ للکود الذی تم کتابته الى Isqkplus Environment. dJ‏ . 
یتم عمل Compile A4 S0]‏ لل eعٍBacka‏ اذا کان الكود سليم يتم تخزين ال عمعج)ءه8 فى ال ع طھ)ھD‏ واذا کان فی 
الكود اى خطأً سنرى ان ال معه)ءه8 يوجد بها اخطاء ولرؤية الخطأً نقوم بكتابة الأمر ٤اه)٤‏ س0ط؟ وذلك لمعرفة ال 
Compilation Errors‏ . 
)٤‏ يتم عمل ع){ںE×ec‏ لکل Body dls Specification —| ja‏ . 


Backage Specification أ‎ slژil‎ 


Creating the Package Specification 


CREATE (lIOR REPLACED PACKAGE package name 


IS | AS 


public type and item declarations 
subprogram specifications 


END package name; 


Or Replace -‏ : ھی اختیاریة ونقوم بکتابتھا حتی نتمکن من عمل ای تعدیل فی ال Specification‏ eعٍBacka‏ بدلا من ان نقوم 
بإزالتها ثم التعديل فيها . 

Procedure J : Subprogramme -‏ وال Function‏ حيث يتم تعريفهم فى ال «مااهعازءمم؟ ويمكن إستخدامهم بعد ذلك عن 
طريق ا Backage‏ . 
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Public Type and item Declare 


Declaration Variable, Cursor, Constant , Exception , or Types 


- الهدف من المثال التالى هو انشاء معه)ءه۴ تقوم بالتأكد من أن اى موظف جديد يتم تعيينه فى الشركة لابد أن يكون ال صصه° 
الخاص به اقل من اکبر رردره٤‏ فى الشركة . 


تم تعريف ع[طوزعه۷ بإسمدصمرمء_6 ويأخذ قيمة إفتراضية 0.10 
- وأیضÎ‏ تم تعر Number aعgi د<ls Parameter le Reset_comım مılڊ Procedure‏ . 
- وبالتالى يكون ال صصهء_6 وال صصهء_tعيRes‏ الأثنان من النو ع عناطںم وذلك لأنە تم تعریفهم فى |— Specification‏ 
Package Body I «lij -‏ . 


CREATE [OR REPLACE] PACKAGE {BODY) package name 
Is|as 
„private type and item declarations 


subprogram bodies 


END package name; 


Or Replace -‏ : ھی إختیاریة ونقوم بکتابتها حتی نتمکن من عمل ای تعدیل فی ال رل8 ععٍه )ءھ8 بدلا من ان نقوم بإزالتھا ثم 
Procedure J : Subprogramme‏ وال Function‏ حیت یتم تعریفهم فی ال «oزاھعاگزء‌مم؟‏ او لا يتم تعريفهم ونقوم هنا 
بكتابة الكود الخاص بهم فى |— Backage Body‏ . 
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م تابع المثال السابق : 


CREATE OR REPLACE PACKAGE BODY comm package 
IS 
FUNCTION validate comm (p_ comm IN NUMBER) 
RETURN BOOLEAN 
IS 
v_max comm NUMBER; 
BEGIN 
SELECT MAX (commission pct) 
INTO v_max comm 
FROM employees; 
IF Pp comm > v max comm THEN RETURN (FALSE) ; 
ELSE RETURN (TRUE) ; 
END IF; 
END validate comm; 


PROCEDURE reset comm (p_ comm IN NUMBER) 
IS 
BEGIN 
IF validate comm (p_ comm) 
THEN gq comm:=p comm; --reset global variable 
ELSE 
RAISE APPLICATION ERROR (-20210,’ Invalid commission’) ; 
END IF; 
END reset comm; 
END comm package; 


- نقوم داخل ال Package 80y‏ بإنشاء أًى Subprogram me‏ تم تعريفها فى ال« هاناعم او لم يتم تعريفها كما فى المثال السابق . 
ملحوظة : 
- يجب ان يكون إسم ال ععه )عه فى الجزء الأول («مذاهعتقزءمم؟) هو نفس الأسم فى الجز ء الثانى (رله8) . 


Invoking Package Constructs 


كيف يمكن إستدعاء وتشغيل ال ءعٍckaم۴‏ . 


EXECUTE comm package.reset comm (0.15)‏ 
فى المتال السابق تم تنفيذ ال Package‏ عن طریف نفس المستخدم او ال USER‏ الذی قام بانشاؤها., 
اي اسم الحزمة او لا ثم نقطة ثم اسم الاجراء أو الوظيفة . 
EXECUTE scott.comm package.reset comm (0.15)‏ 


فى هذا المثال تم تنفيذ ال ععه)ءه۴ عن طريق مستخدم اخر مثل $001١‏ وذلك عن طريق منح هذا المستخدم ال عع واiآ۴‏ او 
الصلاحية المناسبة له لكى يتمكن من إستخدام هذه ال ععج)ع۲a‏ . 
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Declaring a Bodiless Package 


. Package Body jaدڊب‎ Package ترف‎ - 
CREATE OR REPLACE PACKAGE global consts IS 
mile 2 kilo CONSTANT NUMBER 1.6093; 
kilo 2 mile CONSTANT NUMBER 0.6214; 
yard 2 _ meter CONSTANT NUMBER 0.9144; 


meter 2 yard CONSTANT NUMBER 1.0936; 
END global consts; 


- فی هذا المثال قمنا بتعریف sع1طھ ۷a‏ داخل ال ہSpecificatio Package‏ وبالتالى تكون هذه ال ع1طھ۷ari‏ من النوع ال اوطهاB‏ 
وقد قمنا بإنشاء ال معه ]عه السابقه وهى تحتوى على مجموعة من ال sعاطاوااه۷‏ وهذه ال وعءاطهاه۷ تحتوى على قيم إفتراضية . 
- ثم نقوم بإنشاء ال عںل ۴٠٥٥‏ التالية وهی توضح إمكانية إستخدام ال Package‏ داخلJ‏ |ن— Procedure‏ . 


CREATE OR REPLACE PROCEDURE meter to yard 
(p_ meter IN NUMBER, p_ yard OUT NUMBER; 
IS 
BEGIN 
P_ yard := p_ meter * global consts.meter 2 yard; 
END meter to yard; 


/ 
VARIABLE yard NUMBER 
EXECUTE meter to yard (1, :yard) 


Removing Package 


To remove the package specification and the body, 
use the following syntax: 


DROP PACKAGE package name, 


To remove the package body, use the following syntax : 


DROP PACKAGE BODY package_ name; 


حذف |أ Package‏ : 

- عرفنا سابقاً ان ال معٍه )و٥‏ مقسمه الى جزئين )رس (Body مwج)gs ( Specification‏ 

- لذلك يمكن إزالة الجسم رل ه8 وبقاء الرأس «٠ذاهعتقذء‏ مم تعمل بدون الجسم وذلك للكائنات التى ليس لها علاقة او مرتبطة بال رل8 
مثل المتغيرات التى لها قيم إبتدائية وال در هنام ءc Ex‏ وال كمس اما الأجراءات و الدوال فأنها لاتعمل وتنتج خطاً . 
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م ملحو ظة . 
عند حذف ال اهاز ممS‏ موهkعو٥‏ يتم حذف ال رل ه8 بطريقة أتوماتيكية . 


مزایا استخدام ال Package‏ : 
)١‏ يمكنك تجميع بعض ال ءھ٣‏ ع٥إمطں؟‏ المرتبطة ببعضها فى موه )ه۴ واحدة . 
۲) يمكن عمل إخفاء للكود (ى 10ا 04گم )Hiding‏ من خلال ال ءعه)ء ه۴ وذلك فى الجزء ال م)جivا۴‏ . 
۳) اداء افضل . 
)٤‏ اهم شىء هو عملية الصيانه حيث تسهل عملية الصيانة بأستخدام ال معه)ع ج8 او الحزم . 
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عملي |— -:Overloading‏ ` 
تتيح هذه العملية إستخدام نفس الأسم لعدة sعuلع‏ ع۴0 او sرمناعمم۴u‏ داخل نفس ال معه)عه" وهذه العملية تطلب ان يكون هناك 
إختلاف بین ھذہ ال عہ ص ھہع ہام طں؟ فی عدد ال عام ھ٥‏ او ترتیبھم او انواع بیاناتھم کما سوف یتم شرحه وتتیح هذه 
العملية كتابة وتطوير البرامج بمرونة اكثر . 
لاحظ ان هذه العملية لایمکن ان تحدث ن— Functions yl Procedures‏ خار ج Package dI‏ . 
هذه العملية تمكن المبرمج من تعريف عدة برمجيات مختلفة بنفس الأسم داخل نفس ال ععه )عه .ويتم التفريق والتعرف على ال 
Subprogram‏ المراد إستخدامه بواسطة الأختلاف فى عدد ال وإمامصهإه۴ او نوع البيانانات لهذه ال يإمامصهإه۴ او 


ر 


ملحوظه: 
لاتتم عملية ال عله ماع0 اذا كان الأختلاف فقط بين الماعم هإه٣‏ فى نوع البيانات وهذه البيانات من نفس العائلة مثل 
Number , Decimal)‏ ) هما من نفس عائلة النو ع الرقمى و ( هطع ,1412ءه۷ ) هم من نفس عائلة النوع الحرفى . 
ان يكون الأختلاف فقط فى القيمة المرجعة (مناهR)‏ وذلك فى الدوال حتى لو كان انواع بيانات الرجوع من عائلات مختلفة . 
اذا حدث ماسبق من ملاحظات يحدث خطاء و لايحدث عملية gمزل2 0e0‏ . 


: Overloading |آ—‎ JE Jاثم‎ 


بهذا نکون د Package Specification liil‏ . 
فی المثال السابق قد انشاوؤنا eعج)]ع‏ ھ۴ بداخلھا اثنان ع ںمع م۴ بنفس الأسم لتطبيق ال عہزل0aاام0‏ . 
الأختلاف بين ال ues‏ ]۴ هو ان : 

- ال Procedure‏ الأولى تأخذ ثلاثة sرماeص Paa‏ . 


- ال Procedure‏ الثانية تأخذ إثنان إع†مصهإه۲ فقط لاغير . 
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- بعد ذلك نقوم بإنشاء ال رل8 ععٍه )ءھ۴ كما يلى : 
CREATE OR REPLACE PACKAGE BODY over pack IS‏ 


PROCEDURE add dept 
(p_ deptno IN departments. department id%TYPE, 


p_ name IN departments .department name%$TYPE DEFAULT ‘unknown’ , 
IN departments.location id%TYPE DEFAULT 0) 


INSERT INTO departments (department id, 
department name, location id) 


VALUES (p_ deptno, p_ name, p loc); 
END add d 


| dept; 
PROCEDURE j add dept 
(p_ name IN departments .department name%TYPE DEFAULT ‘unknown’ , 


p_ loc IN departments.location id%TYPE DEFAULT 0) 
IS 
BEGIN 
INSERT INTO departments (department id, 
department name, location id) 
VALUES (departments seq.NEXTVAL, p_ name, p_ loc); 
END add dept; 
END over pack; 


الشكل التالى : يبين كيفية إستدعاء وتنفيذ كلا الوم لءعءم]۴ السابق تعريفهم فى ال «0ااةعاقاءمم؟ معه)ع۴a‏ ونتيجة تنفيذهما: 
EXECUTE over_pack.add_dept (980, ' Education’ , 2500) |‏ 
EXECUTE over_pack.add_dept ('‘Training’, 2400)‏ 


SELECT * FROM departments 
WHERE department id = 980; 


DEPARTMENT_ID | DEPARTMENT_NAME | MANAGER_ID | LOCATION_ID  ډ‎ 
380 [Education 2500 


SELECT * FROM departments 


WHERE department_name = ‘Training’ ; 


| DEPARTMENT ID DEPARTMENT NAME | MANAGER ID LOCATION ID 
280 Training 2400 
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:Overloading مثال اخر عل |آ—‎ 
UNCTION TO CHAR (p1 DATE) RETURN VARCHARZ2; 
UNCTION TO CHAR (P2 NUMBER) RETURN VARCHARZ2; 
UNCTION TO CHAR (p1 DATE, P2 VARCHAR2) RETURN VARCHARZ2; ۶ 
UNCTION TO CHAR (p1 NUMBER, P2 VARCHAR2) RETURN VARCHARZ2; 1 


# ملحوظة: 
معظم الدوال الداخلية للأوراكل مطبق بها مفهوم ال عہنلھoاإم0‏ . 
ا ت الین اعا لااو ف ال اا ا ت د ا 
ذJ Standard pılڊ Package‏ . 
- الأولی بھا Parameter‏ واحد نوعه )۾ وترجع Varcha12‏ . 
- اني با Parameter‏ واحد iوعa Varchar2 gجرîs Number‏ . 
- الثالثة بها إثنان مامص Paa‏ الأول نو عه D۸1۴‏ والثانى VARCHAR2 gجرتو Varcha12‏ . 
- الرابعه بها إثنان ءإم†مص۴ara‏ الأول نوعه Number‏ والثانى VARCIHAR2 gجرتو Varcha12‏ . 


اذا تم عمل دالة اخرى بنفس الأسم لدوال داخلية يتم إستبدال الدوال القديمة ووضع الدوال الجديدة التى عملها المستخدم وذلك فى الدوال 
الخاصة ب— Standard Package‏ . 


Forward Declartions آ—‎ مlدختإ‎ 


عند إستخدام ال ہمناcمں۴‏ داخل ال عdurعocاP‏ ان تکون ال ممناعمں ۴ قد تم إنشاؤھا وتعریفھا قبل ال ع u]‏ ع٤٥٥۴‏ فیجب 
تعريف الكائن سواء متغير او عص هع هإمطں؟ قبل الأستخدام. 


CREATE OR REPLACE PACKAGE BODY forward pack 
1S 

PROCEDURE award bonus(. . .) 

TS 

BEGIN 


|sa1e_rating. . 0: --illega1 reference 


END; 


şgoczpunsGa1e_ratindy 2 


END forward pack; 
ر‎ 
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ففی المثال السابق نلاحظ عدم إمكانية إستخدام ال عإںdع P٥‏ المسمی عہناھ]_c[ھC‏ حیث قمنا بإستخدام العrإں‏ )مه٥‏ قبل 
تعريفه وهذا ملايمكن إستخدامه فى ال P٥۸8©_‏ فلكى نتمكن من إستخدام تلك ال عeںلءءه۴‏ لابد من تعريفه اولاً فى الجزء 
الخاص بال ٥ ٣۸‏ ھام( تم نقوم بعد ذلك بإستخدام ھذہ ال ٥ں‏ ع٥٥٥‏ فى الجزء الخاص بال رہ8 کما فی المثال التالی : 


CREATE OR REPLACE PACKAGE BODY forward pack 
IS 


PROCEDURE E -- forward declaration 


PROCEDURE award bonus (. . .) 


IS -- subprograms defined 
BEGIN -- in alphabetical order 


calc rating. . 0; 


a a EEE E 
PROCEDURE(calc_ratingD. . .) 
aa e 


END forward pack; 
/ 


- فى المثال السابق تم معالجة تلك المشكلة وذلك عن طريق تعريف (ع,ناةR_ءا2٣)‏ عإduمءهمإ۴‏ فى الجزء الخاص بال 
Declration‏ . 

وهذه العملية تتيح تجميع اكثر من عدصصهإعٍهإمطں؟ مرتبطة ببعضهافى عوج )عه واحدة بحيث يتم تعريفهم فى ال 

Specification‏ الخاص بالمعٍه)ءه۴ وكتابة الكود داخل ال رم8 وذلك يفيد فى إخفاء تفاصيل الكود اى زيادة من السرية 


. (security) 
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